home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / pdf_font.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  57.5 KB  |  1,710 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf_font.ps 9330 2009-01-07 08:33:14Z ken $
  17. % PDF font operations.
  18.  
  19. % Since PDF font are not unique and can collide with external font resources
  20. % or each other, use font dictionaries obtained from PDF directly, never
  21. % register them as resources or look them up by name. Use findfont oparator
  22. % for non-embedded fonts only. CIDFont resources still use the old logic
  23. % described below.
  24.  
  25. % Finding a font by name can't give a proper result when PDF font names aren't unique.
  26. % But it is only the way to obtain a font in Postscript after a font file is executed.
  27. % Therefore using a FontName (and findfont) is allowed only
  28. % immediately after a font file is executed.
  29. % In all other cases the font to be found by a pointer through PDF structures.
  30. %
  31. % This ideal logics can't work for documents,
  32. % which define a font resource with an embedded font,
  33. % and another font resource with same BaseFont but with no embedded font
  34. % (and possibly with no font descriptor).
  35. % Our testbase does contain such examples.
  36. % In this case we do find font by FontName (with findfont),
  37. % since there is no other way to get a reasonable result.
  38.  
  39. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  40. .currentglobal true .setglobal
  41. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  42. GS_PDF_ProcSet begin
  43. pdfdict begin
  44.  
  45. % We cache the PostScript font in an additional element of the
  46. % font resource dictionary, called PSFont.
  47.  
  48. % ---------------- Encodings ---------------- %
  49.  
  50. /.notdefEncoding 256 { /.notdef } repeat 256 packedarray def
  51.  
  52. % Apply a list of differences to an Encoding.
  53. % Note that the differences may cause the array to grow.
  54. /updateencoding {    % <encoding|null> <differences> updateencoding <enc'>
  55.     % Calculate the length of the result.
  56.   % in case the incoming Encoding is null, use .notdefEncoding
  57.   exch dup null eq { pop .notdefEncoding } if
  58.   0 0 3 index {
  59.     dup type /nametype ne { exch pop oforce } { pop 1 add } ifelse
  60.     % Differences list may not be in order, update the largest_index
  61.     % stack: <Differences> <encoding> <largest_index> <at_index>
  62.     2 copy lt { exch pop dup } if    % at_index is new largest
  63.   } forall
  64.   pop 1 index length .max array dup 0 4 -1 roll putinterval
  65.   exch 0 exch {
  66.         % Stack: enc' code element
  67.     dup type /nametype ne
  68.       { exch pop oforce }
  69.       { 3 copy put pop 1 add }
  70.     ifelse
  71.   } forall pop
  72. } bdef
  73.  
  74. /good_encoding_names <<
  75.   /MacRomanEncoding 0 /MacExpertEncoding 0 /WinAnsiEncoding 0
  76. >> readonly def
  77.  
  78. /known_symbolic_fonts <<
  79.   /Wingdings2 0
  80. >> readonly def
  81.  
  82. % Get the Encoding for a font.
  83. /getencoding        % <base-encoding> <font-resource> getencoding <enc>
  84.  { dup /Encoding knownoget
  85.     { dup type /nametype eq
  86.        {
  87.          % The published PDF specification says the Encoding name
  88.          % "must be" one of the 3 predefined Encodings, implying
  89.          % that an error should occur if it isn't.  However, Acrobat
  90.          % Reader simply ignores unknown names, and since there are
  91.          % some buggy applications that rely on this, we do the same.
  92.  
  93.          //good_encoding_names 1 index known {
  94.            exch /BaseFont knownoget not { 0 } if 
  95.            % Ignore named encodings for known symbolic fonts. See bug 690135.
  96.            //known_symbolic_fonts exch known {
  97.              pop
  98.            } {
  99.              exch pop findencoding
  100.            } ifelse
  101.          } {
  102.            pop pop
  103.          } ifelse
  104.        }
  105.        { exch pop
  106.          dup type /arraytype eq
  107.      { exch pop
  108.        (   **** Warning: Encoding is an array, not name or dictionary.\n)  pdfformaterror
  109.      }
  110.      { dup /BaseEncoding knownoget
  111.          { dup / eq
  112.          { pop
  113.            (   **** Warning: Ignoring bad BaseEncoding name.\n)  pdfformaterror
  114.            % as found in a PDF file from J.D.Edwards OneWorld (B7333), bug 687786
  115.          }
  116.          { findencoding 3 -1 roll pop exch }
  117.            ifelse
  118.          }
  119.        if
  120.        /Differences knownoget { updateencoding } if
  121.      }
  122.      ifelse
  123.        }
  124.        ifelse
  125.      } {
  126.        pop
  127.        (   **** Warning: Encoding not present.\n)  pdfformaterror
  128.      }
  129.      ifelse
  130.  } bdef
  131.  
  132. currentdict /good_encoding_names undef
  133. currentdict /known_symbolic_fonts undef
  134.  
  135. /checkGlyphNames2Unicode % <dict> checkGlyphNames2Unicode -
  136. {
  137.   PDFDEBUG {
  138.     dup /FontInfo .knownget { 
  139.       /GlyphNames2Unicode .knownget { 
  140.         (Has GlyphNames2Unicode) =
  141.         pop % { exch == ==} forall 
  142.       } if 
  143.     } if
  144.   } if
  145.   pop
  146. } bind def
  147.  
  148. % Define a font using it's FontName as the key.
  149. % Adjust a font according to the Encoding and Widths in the font resource.
  150. /adjustfont {        % <font-resource> <font> adjustfont <font'>
  151.   getfontencoding
  152.   3 copy .processToUnicode
  153.   getfontmetrics 5 -1 roll pop .updatefont { .completefont } if
  154. } bind def
  155.  
  156. % Get the (possibly modified) encoding of a font.
  157. /getfontencoding {    % <font-resource> <font> getfontencoding
  158.             %   <font-resource> <font> <Encoding|null>
  159.   //systemdict /IgnoreTTEncoding .knownget not { //false } if {
  160.   1 index /Subtype get /TrueType eq } { //false } ifelse {
  161.     //null
  162.   } {
  163.     1 index /Encoding known {
  164.       dup /Encoding knownoget { 2 index getencoding } { //null } ifelse
  165.     } {
  166.       //null
  167.     } ifelse
  168.   } ifelse
  169. } bdef
  170.  
  171. % Returns true if the current glyph is in the Differences array at
  172. % the specified index value. This is needed because the Widths
  173. % array may map to the same glyph at different positions from the
  174. % Encoding. We want to use the Width that was associated with the
  175. % one specified in the Encoding::Differences list.
  176. /match_in_diff     % <Differences> <index> <glyphname> match_in_diff <bool>
  177. { false 4 1 roll 0 4 -1 roll    % stack: false index glyphname at_index==0 Differences
  178.   { exch 1 index type /nametype ne {
  179.       % stack: false index glyphname Diff_element at_index 
  180.       pop    % Diff_element is new at_index
  181.     } {
  182.       % stack: false index glyphname Diff_element at_index 
  183.       exch 2 index eq {
  184.         % stack: false index glyphname at_index 
  185.     dup 3 index eq {
  186.           true 5 1 roll    % stack: true false index glyphname at_index
  187.           pop exit
  188.         } if
  189.       } if
  190.       1 add        % at_index++ stack: false index glyphname at_index' 
  191.     } ifelse
  192.   } forall
  193.   % stack: true  false index     glyphname
  194.   %  or  : false index glyphname at_index
  195.   pop pop pop
  196. } bdef
  197.  
  198. /unique_name {  % <dict> </root> unique_name </unique> 
  199.   %
  200.   %  Note : this function interacts with pdf_write_encoding in src/gdevpdtw.c
  201.   %  and with copied_drop_extension_glyphs in src\gxfcopy.c
  202.   %  by adding a reserved substring (~GS~).
  203.   %
  204.   .namestring       % <<>> (root)
  205.   0 1 65535 {
  206.     5 string cvs    % <<>> (root) (0)
  207.     (~GS~) exch concatstrings
  208.     1 index exch    % <<>> (root) (root) (~GS~0)
  209.     concatstrings   % <<>> (root) (root~GS~0)
  210.     dup             % <<>> (root) (root~GS~0) (root~GS~0)
  211.     3 index exch    % <<>> (root) (root~GS~0) <<>> (root~GS~0)
  212.     known not {
  213.       exch pop exit % <<>> (root~GS~0)
  214.     } if
  215.     pop
  216.   } for
  217.   exch pop cvn      % /root0
  218. } bdef
  219.                                
  220. % Get the metrics of a font, if specified.
  221. /getfontmetrics {       % <font-resource> <font> <Encoding|null> getfontmetrics
  222.                         %   <font-resource> <font> <Encoding|null>
  223.                         %   <Metrics|null> <GlyphMap|null>
  224.  
  225.   2 index /Widths known {
  226.     dup //null eq { pop dup /Encoding get } if
  227.     7 dict begin
  228.       dup length dict
  229.       /Metrics exch def
  230.       /Encoding exch def
  231.       /GlyphMap //null def
  232.       exch
  233.       dup /Widths oget /Widths exch def
  234.                 % Stack: font font-res
  235.                 % Note that widths are always based on a 1000-unit
  236.                 % character space, but the FontMatrix may specify
  237.                 % some other scale factor.  Compensate for this here,
  238.                 % by scaling the Widths if necessary.
  239.       0.001 2 index /FontMatrix get 0 get
  240.       dup 0 eq {
  241.         % FontMatrix.xx == 0, so we cannot scale down by xx.
  242.         % - FontMatrix[0] == 0 implies either FontMatrix[1] <> 0 or 
  243.         %   FontMatrix cannot be inverted. In the 1st case we have 
  244.         %   FontMatrixNonHV == true and will render text with cshow + xshow. 
  245.         %   In the 2nd case, metrics in the PDF Font object cannot be enforced 
  246.         %   [by altering metrics in PS glyph space].
  247.         % HACK:
  248.         % - we scale down by FontMatrix[1];
  249.         % - given the format of Metrics entries we use, wy = 0 in glyph space;
  250.         % - as a result, the cshow procedure receives as wy the value we 
  251.         %   need for wx (all of this in PS user space).
  252.     pop
  253.     2 index /FontMatrix get 1 get
  254.     dup 0 eq { pop 1 } if % sorry, no way to enforce PDF metrics by altering the font
  255.       } if
  256.       div
  257.                 % Stack: font font-res mscale
  258.       /FirstChar 2 index /FirstChar oget def
  259.       /LastChar  2 index /LastChar  oget def
  260.  
  261.       Encoding length LastChar le {
  262.          (   **** Warning: Font Encoding array size is smaller than character range.\n)
  263.          pdfformaterror
  264.       } if
  265.  
  266.       1 index /FontDescriptor knownoget {
  267.            /MissingWidth knownoget not { 0 } if 
  268.         } 
  269.         { 1000 
  270.         } 
  271.       ifelse /MissingWidth exch def
  272.              
  273.       Widths length LastChar FirstChar sub le {
  274.          (   **** Warning: Font Widths array size is smaller than character range.\n)
  275.          pdfformaterror
  276.          /Widths [Widths aload length LastChar FirstChar sub exch sub MissingWidth exch {dup} repeat] def
  277.       } if
  278.       FirstChar
  279.  
  280.       0 Encoding 
  281.        {        % Stack: font font-res mscale first-char index charname
  282.  
  283.          1 index FirstChar lt { MissingWidth } {
  284.            1 index LastChar gt { MissingWidth } { Widths 2 index FirstChar sub get } ifelse
  285.          } ifelse
  286.  
  287.                 % Stack: font font-res mscale first-char index charname width
  288.          4 index mul
  289.                 % The following 'loop' is only context for 'exit'.
  290.          {      
  291.                 % Work around a bug in pdfTeX, which can generate Encoding
  292.                 % vectors containing nulls :
  293.            1 index //null eq { exit } if
  294.            Metrics 2 index .knownget {
  295.              1 index ne
  296.            } {
  297.              //false
  298.            } ifelse {
  299.              % Two or more Encoding elements refer same glyph name,
  300.              % and Widths specify different wihts for it.
  301.              % Since a Postscript font can't have different 
  302.              % Metrics for same glyph name, 
  303.              % we generate an unique name, and create a new 
  304.              % Charstrings entry with same glyph value.
  305.              GlyphMap //null eq {
  306.                /Encoding Encoding dup length array copy def
  307.                /GlyphMap 4 dict def
  308.              } if
  309.              % To prevent too many new names, check whether
  310.              % we can use one already created for same glyph.
  311.              //true
  312.              GlyphMap {                           % f r s c i n w b n1 n2
  313.                4 index eq {                       % f r s c i n w b n1
  314.                  dup Metrics exch get             % f r s c i n w b n1 w1
  315.                  3 index eq {                     % f r s c i n w b n1
  316.                    4 3 roll pop                   % f r s c i w b n1
  317.                    3 1 roll pop                   % f r s c i n1 w
  318.                    Encoding 3 index 3 index put
  319.                    //false                        % f r s c i n1 w b
  320.                    exit
  321.                  } {
  322.                    pop
  323.                  } ifelse
  324.                } {                                % f r s c i n w b n1
  325.                  pop
  326.                } ifelse
  327.              } forall                             % f r s c i n w b
  328.              { % Do create a new name.
  329.                Metrics 2 index //unique_name exec % f r s c i n w nn
  330.                Encoding 4 index 2 index put
  331.                GlyphMap 1 index 5 -1 roll put     % f r s c i w nn
  332.                exch
  333.                   % Stack: font font-res mscale first-char index new_name width
  334.              } if
  335.            } if
  336.            2 copy Metrics 3 1 roll put
  337.            exit
  338.          } loop
  339.          pop pop
  340.          1 add
  341.        }
  342.      forall pop pop pop
  343.      exch Encoding Metrics GlyphMap end
  344.   } {
  345.     //null //null
  346.   } ifelse
  347. } bdef
  348.  
  349. currentdict /unique_name undef
  350. currentdict /match_in_diff undef
  351.  
  352. /ToUnicodeCMapReader 3 dict begin
  353.   /defineresource % <name> <dict> <cat-name> defineresource <dict> 
  354.   {
  355.     pop 
  356.     dup userdict exch /.lastToUnicode exch put
  357.     exch pop
  358.   } bind def
  359.   /CIDSystemInfo 
  360.   { 
  361.     (   **** Warning: ToUnicode CMap has invalid syntax near CIDSystemInfo.\n)  pdfformaterror
  362.     /CIDSystemInfo 
  363.   } bind def % A work around a bug in Altona.Page_3.2002-09-27.pdf - a slash is missed.
  364.   /CMapName
  365.   {
  366.     (   **** Warning: ToUnicode CMap has no CMapName.\n\
  367.         See the comment to revision 6201 in gs/doc/ps2pdf.htm#Problems .\n) pdfformaterror
  368.     /CMap1   % arbitrary, PDF defineresource tolerates non-unique names
  369.   } bind def % A work around incorrect ToUnicode CMap generated by GS before rev. 6201.
  370. currentdict end readonly def
  371.  
  372. /string2number     % <string> string2number <number>
  373. { 0 exch dup 0 exch 1 exch length 1 sub {     % n () i
  374.     1 index exch get                          % n () v
  375.     3 2 roll 256 mul add exch                 % v+n*256 ()
  376.   } for
  377.   pop                                         % N
  378. } bind def
  379.  
  380. /copy&def    % <key> <value> <bool> copy&def -
  381. {
  382.   { true
  383.   } {
  384.     currentdict gcheck { 
  385.       dup gcheck not
  386.     } {
  387.       false
  388.     } ifelse
  389.   } ifelse
  390.   { currentglobal currentdict gcheck setglobal 
  391.     exch dup length string copy exch 
  392.     setglobal
  393.   } if
  394.   def
  395. } bind def
  396.  
  397. /.convert_ToUnicode-into-g2u % <GlyphNames2Unicode> <Encoding|null> <CMap> .convert_ToUnicode-into-g2u -
  398. {
  399.   PDFDEBUG {
  400.     (.convert_ToUnicode-into-g2u beg) =
  401.   } if
  402.   3 2 roll begin
  403.   /.CodeMapData get % About the data format see gs_cmap.ps, the comment after "CMap operators".
  404.   1 get % code maps
  405.   { 
  406.     PDFDEBUG {
  407.       dup ==
  408.     } if
  409.     dup length 1 sub 0 exch 5 exch {           % e [] i
  410.       2 copy get                               % e [] i (prefix)
  411.       string2number                            % e [] i prefix
  412.       2 index 2 index 1 add get                % e [] i prefix (key_size,?is_range,value_type,value_size)
  413.       dup 0 get 8 mul                          % e [] i prefix (key_size,?is_range,value_type,value_size) key_size*8
  414.       3 2 roll exch bitshift exch              % e [] i prefix<<key_size*8 (key_size,?is_range,value_type,value_size)
  415.       dup 0 get exch 3 get                     % e [] i offset key_size value_size
  416.       4 index 4 index 2 add get                % e [] i offset key_size value_size (keys)
  417.       5 index 5 index 3 add get                % e [] i offset key_size value_size (keys) (values)
  418.       PDFDEBUG {
  419.         ( offset=) print 4 index =string cvs print
  420.         ( key_size=) print 3 index =string cvs print
  421.         ( value_size=) print 2 index =
  422.         ( keys=)   print 1 index ==
  423.         ( values=) print dup ==
  424.       } if
  425.       1 index length 0 eq {
  426.         % A single pair.
  427.         exch pop exch pop exch pop exch        % e [] i (values) offset
  428.         4 index null ne {
  429.           4 index length 1 index gt {
  430.             4 index exch get
  431.           } if
  432.         } if                                   % e [] i (values) cid|name
  433.         exch 
  434.         PDFDEBUG {
  435.           ( defined single: ) print 1 index =string cvs print ( ) print dup ==
  436.         } if
  437.         false copy&def                         % e [] i
  438.         pop                                    % e []
  439.       } {
  440.         % A range.                             % e [] i offset key_size value_size (keys) (values)
  441.         dup length string copy % protect the original string from modifications below.
  442.         0 4 index 2 mul 3 index length 1 sub { % e [] i offset key_size value_size (keys) (values) j
  443.           2 index 1 index 6 index getinterval          
  444.           string2number                        % e [] i offset key_size value_size (keys) (values) j keyL
  445.           PDFDEBUG {
  446.               ( keyL=) print dup =string cvs print
  447.           } if
  448.           3 index 2 index 7 index add 7 index getinterval
  449.           string2number                        % e [] i offset key_size value_size (keys) (values) j keyL keyH
  450.           PDFDEBUG {
  451.               ( keyH=) print dup =
  452.           } if
  453.           3 2 roll 6 index idiv 5 index mul    % e [] i offset key_size value_size (keys) (values) keyL keyH J
  454.           3 index exch 6 index getinterval     % e [] i offset key_size value_size (keys) (values) keyL keyH (valueL)
  455.           3 1 roll 1 exch {                    % e [] i offset key_size value_size (keys) (values) (value) k
  456.             9 index null ne {
  457.               9 index exch get                 % e [] i offset key_size value_size (keys) (values) (value) name
  458.             } if                               % e [] i offset key_size value_size (keys) (values) (value) cid|name
  459.             1 index                            % e [] i offset key_size value_size (keys) (values) (value) cid|name (value)
  460.             PDFDEBUG {
  461.               ( defined from range: ) print 1 index =string cvs print ( ) print dup ==
  462.             } if
  463.             true copy&def                      % e [] i offset key_size value_size (keys) (values) (value)
  464.             % Assuming the lowest byte of 'value' changes, others don't.
  465.             dup dup length 1 sub               % e [] i offset key_size value_size (keys) (values) (value) (value) l
  466.             2 copy get                         % e [] i offset key_size value_size (keys) (values) (value) (value) l v
  467.             % Modulo 256 increment prevents a rangecheck error when the result is stored in a string.
  468.             % The adjustment can happen only at the end of the loop where the string is discarded. Bug 688535.
  469.             1 add 255 and put                  % e [] i offset key_size value_size (keys) (values) (value')
  470.           } for                                % e [] i offset key_size value_size (keys) (values) (value)
  471.         } for
  472.         pop pop pop pop pop pop pop            % e []
  473.       } ifelse
  474.     } for
  475.     pop                                        % e
  476.   } forall
  477.   end
  478.   pop                                          %
  479.   PDFDEBUG {
  480.     (.convert_ToUnicode-into-g2u end) =
  481.   } if
  482. } bind def
  483.  
  484. /.processToUnicode   % <font-resource> <font-dict> <encoding|null> .processToUnicode -
  485. {
  486.   % Currently pdfwrite is only device which can handle GlyphNames2Unicoide to 
  487.   % generate a ToUnicode CMaps. So don't bother with other devices.
  488.   currentdevice .devicename /pdfwrite eq {
  489.     PDFDEBUG {
  490.       (.processToUnicode beg) =
  491.     } if
  492.     2 index /ToUnicode knownoget {
  493.       dup type /dicttype eq { dup /File known not } { //true } ifelse {
  494.         % We undefine wrong /Length and define /File in stream dictionaries.
  495.         % Bug687351.pdf defines /ToUnicode /Identity-H, what is incorrect.
  496.         (   **** Warning: Ignoring bad ToUnicode CMap.\n)  pdfformaterror
  497.         pop
  498.       } {
  499.  
  500.         /PDFScanRules .getuserparam dup //null eq {
  501.           pop //PDFScanRules_null
  502.         } {
  503.           1 dict dup /PDFScanRules 4 -1 roll put
  504.         } ifelse
  505.         //PDFScanRules_true setuserparams
  506.         PDFfile fileposition 3 -1 roll
  507.  
  508.         //false resolvestream
  509.         //ToUnicodeCMapReader begin
  510.            % Following Acrobat we ignore everything outside
  511.            %   begincodespacerange .. endcmap.
  512.            dup 0 (begincodespacerange) /SubFileDecode filter flushfile
  513.            /CIDInit /ProcSet findresource begin 12 dict begin
  514.            /CMapType 2 def
  515.            mark exch % emulate 'begincodespacerange'
  516.            0 (endcmap) /SubFileDecode filter cvx /begincmap cvx exch 2 .execn
  517.            endcmap 
  518.            userdict /.lastToUnicode currentdict put
  519.         end end end
  520.  
  521.         PDFfile exch setfileposition
  522.         setuserparams
  523.  
  524.         1 index /FontInfo .knownget not {
  525.           currentglobal 2 index dup gcheck setglobal
  526.           /FontInfo 5 dict dup 5 1 roll .forceput
  527.           setglobal
  528.         } if
  529.         dup /GlyphNames2Unicode .knownget not {
  530.           true                    % No existing G2U, make one
  531.         } {
  532.           dup wcheck {
  533.             false                % Existing, writeable G2U, don't make new one
  534.           } {
  535.             pop true                % Existing read only G2U, make new one
  536.           } ifelse
  537.         } ifelse
  538.  
  539.         {
  540.           currentglobal exch dup gcheck setglobal
  541.           dup /GlyphNames2Unicode 100 dict dup 4 1 roll .forceput
  542.           3 2 roll setglobal
  543.         } if                                 % font-res font-dict encoding|null font-info g2u
  544.         exch pop exch                        % font-res font-dict g2u encoding|null
  545.         userdict /.lastToUnicode get         % font-res font-dict g2u Encoding|null CMap
  546.         .convert_ToUnicode-into-g2u          % font-res font-dict
  547.         //null                               % font-res font-dict null
  548.       } ifelse
  549.     } if
  550.     PDFDEBUG {
  551.       (.processToUnicode end) =
  552.     } if
  553.   } if
  554.   pop pop pop
  555. } bind def
  556.  
  557. % ---------------- Descriptors ---------------- %
  558.  
  559. % Partial descriptors for the 14 built-in fonts.  Note that
  560. % from PDF 1.1 to PDF 1.2, the meaning of the Flag 6 in the FontDescriptor
  561. % object has undergone a subtle change in its meaning which has serious
  562. % consequences for searching with Acrobat:
  563. % In PDF 1.1, the flag meant: Font has StandardEncoding
  564. % In PDF 1.2, the flag means: Font has (subset of) StandardRomanCharacterSet
  565. /standardfontdescriptors mark
  566.   /Courier mark /Flags 16#23 .dicttomark
  567.   /Courier-Oblique 1 index
  568.   /Courier-Bold 1 index
  569.   /Courier-BoldOblique 1 index
  570.   /Helvetica mark /Flags 16#20 .dicttomark
  571.   /Helvetica-Oblique 1 index
  572.   /Helvetica-Bold 1 index
  573.   /Helvetica-BoldOblique 1 index
  574.   /Times-Roman mark /Flags 16#22 .dicttomark
  575.   /Times-Bold 1 index
  576.   /Times-Italic mark /Flags 16#62 .dicttomark
  577.   /Times-BoldItalic 1 index
  578.   /Symbol mark /Flags 16#4 .dicttomark
  579.   /ZapfDingbats 1 index
  580. .dicttomark readonly def
  581.  
  582. % ---------------- Utilities ---------------- %
  583.  
  584.  
  585. /.pdforigfontcache_g 20 dict def
  586. currentglobal false setglobal
  587. systemdict /.pdforigfontcache_l 20 dict .forceput
  588. setglobal
  589.  
  590. % Find an original font, using cache to prevent adjustfont to accumulate changes.
  591. /pdffindcachedfont {   % <font_name> pdffindcachedfont <font>
  592.   dup //.pdforigfontcache_g exch .knownget {
  593.     exch pop
  594.   } {
  595.     dup .pdforigfontcache_l exch .knownget {
  596.       exch pop
  597.     } {
  598.       dup findfont dup    
  599.       dup gcheck { //.pdforigfontcache_g } { .pdforigfontcache_l } ifelse
  600.                      % Stack : font_name font font cache
  601.       4 2 roll .growput
  602.     } ifelse
  603.   } ifelse
  604. } bind def
  605.  
  606. % Add original font to cache to prevent adjustfont to accumulate changes.
  607. /pdfaddcachedfont {   % <font_name> pdfaddcachedfont <font>
  608.   dup findfont dup                   % name font font
  609.   dup gcheck { //.pdforigfontcache_g } {.pdforigfontcache_l} ifelse
  610.   4 2 roll                           % font d name font
  611.   put                                % font
  612. } bind def
  613.  
  614. /.remove_font_name_prefix {  % <name>  .remove_font_name_prefix <name>
  615.   dup .namestring (+) search {
  616.     true exch
  617.     { dup 65 lt exch 90 gt or {
  618.         pop false exit
  619.       } if
  620.     } forall
  621.     { pop exch pop cvn
  622.     } {
  623.       pop pop
  624.     } ifelse
  625.   } {
  626.     pop
  627.   } ifelse
  628. } bind def
  629.  
  630. % Find a font (except for embedded ones), and adjust its encoding if necessary.
  631. /.pdfdfndict mark
  632.   /defaultfontname /Helvetica
  633. .dicttomark readonly def
  634. /pdffindfont {        % <font-resource> <fontname> pdffindfont <font>
  635.         % If the font isn't available, synthesize one based on
  636.         % its descriptor.
  637.   dup /Font resourcestatus {
  638.     pop pop pdffindcachedfont
  639.   } {
  640.     1 index /FontDescriptor knownoget {
  641.         % Stack: font-res fontname fontdesc
  642.       dup /Flags oget
  643.       dup 16#40 and -6 bitshift        % 1, oblique/italic
  644.       1 index 16#40000 and -17 bitshift add    % 2, bold
  645.       exch 16#2 and 2 bitshift add    % 8, serif
  646.         % We should look at the fixed flag, too.
  647.         % Stack: font-res fontname fontdesc properties
  648.  
  649.                 % Even though /FontName is a required key in FontDescriptor dict
  650.                 % (As of the PDF 1.4 Reference Manual), In the case of missing 
  651.                 % /FontName key, we substitue /BaseFont for the value of /FontName.
  652.                 % Yet another case of broken PDF's that Adobe Reader accepts.
  653.       1 index dup /FontName known {
  654.         /FontName oget
  655.       } {
  656.         (   **** FontDescriptor missing required /FontName key. BaseFont name used.\n)
  657.         pdfformaterror
  658.         pop 2 index        % grab the BaseFont from the stack.
  659.       } ifelse
  660.       .remove_font_name_prefix
  661.       exch
  662.         % Analyzes font name and extract "Bold" and "Narrow" properties
  663.         % which are not described by the FontDescriptor Flags.
  664.       0 2 index .fontnameproperties 6 and or
  665.         % Rebind the default font name to Helvetica so that
  666.         % fonts with no properties are handled correctly.
  667.       //.pdfdfndict begin .substitutefontname end
  668.         % Stack: font-res fontname fontdesc substname|null
  669.       Fontmap 1 index known not {
  670.         % No available good substitution, use the standard one.
  671.     pop 1 index .substitutefont
  672.       } if
  673.       dup 3 index ne QUIET not and {
  674.     (Substituting font ) print dup =only
  675.     ( for ) print 2 index =only (.) = flush
  676.       } if
  677.       pdffindcachedfont
  678.         % Stack: font-res fontname fontdesc font
  679.         % If this is a small-caps font, replace the CharString
  680.         % entries for a..z.
  681.       exch /Flags oget 16#20000 and 0 ne {
  682.     true .copyfontdict
  683.     dup /CharStrings 2 copy get dup length dict .copydict
  684.     % stack: font-res fontname font font /CharStrings CharStringsdict
  685.     5 index /FirstChar get 97 .max
  686.     6 index /LastChar get 122 .min 1 exch {
  687.         % Stack: font-res fontname font' font' /CharStrings charstrings code
  688.         % Note that this only remaps a-z, not accented characters.
  689.       6 index /Widths oget 1 index 8 index /FirstChar get sub oget
  690.       1 string dup 0 5 -1 roll put
  691.         % Stack: font-res font' font' /CharStrings charstrings code
  692.         %   width (x)
  693.       2 index exch dup cvn exch
  694.       dup 0 2 copy get 32 sub put 4 -1 roll {
  695.             % Stack: operand (X) width
  696.         0 setcharwidth exch pop
  697.         currentfont /FontMatrix get matrix invertmatrix concat
  698.         0.7 dup scale 0 0 moveto show
  699.       } /exec cvx 4 packedarray cvx put
  700.     } for put
  701.       } if
  702.       dup /FontName get 2 index ne {
  703.         true .copyfontdict
  704.         2 copy exch /FontName exch put
  705.       } if
  706.       exch pop .completefont
  707.     } {
  708.         % No descriptor available, use the default algorithm.
  709.       pdffindcachedfont
  710.     } ifelse
  711.   } ifelse
  712.   exch pop
  713. } bdef
  714.  
  715. % ---------------- Type 1 fonts ---------------- %
  716.  
  717. /buildType1        % <Type1-font-resource> buildType1 <font>
  718.  { dup /BaseFont get pdffindfont
  719.  } bdef
  720.  
  721. % Read an embedded Type 1 font.
  722. /readfontfilter {    % <proc> readfontfilter <filter>
  723.   0 () /SubFileDecode filter
  724. } bdef
  725.  
  726. % Adobe Acrobat doesn't skip space characters after eexec
  727. /eexec_pdf_param_dict mark
  728.   .eexec_param_dict {} forall
  729.   /keep_spaces true
  730. .dicttomark readonly def
  731.  
  732. % When Type 1 font reading procedure is executing, a copy of this dictionary is current.
  733. % We have to do something special about embedded fonts that execute definefont
  734. % more than once -- that is the function of topFontDict.
  735. % The whole type1 stream can be executed directly. There's no need to process
  736. % Length1, 2, 3 keys.
  737.  
  738. /readtype1dict 5 dict dup begin
  739.   /definefont {
  740.     exch pop
  741.     dup /UniqueID .knownget {
  742.       dup dup 0 lt exch 16#ffffff gt or {
  743.         (   **** Warning: Ignoring invalid /UniqueID = ) exch =string cvs
  744.         concatstrings (\n) concatstrings pdfformaterror
  745.         dup /UniqueID undef
  746.       } {
  747.         pop
  748.       } ifelse
  749.     } if
  750.     .completefont
  751.   } bdef
  752.  
  753.   /undef_proc_warning {
  754.     /Repaired true store    % flag that we have warnings
  755.     UndefProcList exch 2 copy .knownget { 1 add } { 1 } ifelse put
  756.   } bdef
  757.  
  758.   /missing-type1-procs 6 dict begin
  759.     /-| { string currentfile exch readstring pop /-| //undef_proc_warning exec } executeonly bdef
  760.     /RD { string currentfile exch readstring pop /RD //undef_proc_warning exec } executeonly bdef
  761.     /|- { noaccess def /|- //undef_proc_warning exec } executeonly bdef
  762.     /ND { noaccess def /ND //undef_proc_warning exec } executeonly bdef
  763.     /|  { noaccess put /|  //undef_proc_warning exec } executeonly bdef
  764.     /NP { noaccess put /NP //undef_proc_warning exec } executeonly bdef
  765.   currentdict end readonly def
  766.  
  767.   /eexec {
  768.     % Assume the font dictionary is directly below the file on the stack
  769.     count 0 gt { /topFontDict 2 index cvlit store } if
  770.     //eexec_pdf_param_dict /eexecDecode filter
  771.  
  772.     //missing-type1-procs begin
  773.     /userdict .systemvar begin
  774.     //systemdict begin
  775.     readtype1dictcopy begin cvx stopped
  776.  
  777.     { currentdict end //missing-type1-procs eq { exit } if } loop
  778.     { stop } if
  779.   } bdef
  780.  
  781.   /readonly-op-dict <<
  782.     /stringtype 0
  783.     /arraytype 0
  784.     /packedarraytype 0
  785.     /dicttype 0
  786.   >> readonly def
  787.  
  788.   /readonly { % bug 689617
  789.     dup type //readonly-op-dict exch known {
  790.     readonly
  791.   } {
  792.     (   **** Warning: Type 1 font applies operator readonly to a wrong type.\n)
  793.     pdfformaterror
  794.   } ifelse } .bind def
  795.  
  796.   currentdict dup dup
  797.   /undef_proc_warning undef
  798.   /missing-type1-procs undef
  799.   /readonly-op-dict undef
  800.  
  801. end readonly def
  802.  
  803. currentdict /eexec_pdf_param_dict .undef
  804.  
  805. /readtype1 {        % <font-resource> <stream-dict> readtype1 <font>
  806.    1 index exch                       % res res stream
  807.    PDFfile fileposition 3 1 roll      % res pos res stream
  808.    dup /PFB known exch                % res pos res pfb? stream
  809.    true resolvestream                 % res pos res pfb? file
  810.    exch {
  811.      //false /PFBDecode filter
  812.    } if
  813.         % Some buggy embedded fonts leave extra junk on the stack,
  814.         % so we have to make a closure that records the stack depth
  815.         % in a fail-safe way. This code also removes the mark when
  816.                 % the implied cleartomark is not executed, i.e. Length3 == 0.
  817.                 % Also restore dictstack depth.
  818.                 % 
  819.    //systemdict begin
  820.    //readtype1dict dup length 3 add dict copy begin
  821.    1 index /BaseFont oget /savedFontName exch def
  822.    /topFontDict null def
  823.    /readtype1dictcopy currentdict def
  824.     { cvx exec } aload pop count 2 sub 3 packedarray cvx exec
  825.     % clean up the dictstack
  826.     { currentdict /topFontDict known not { end } { exit } ifelse } loop
  827.    count exch sub { pop } repeat
  828.    PDFfile 3 -1 roll setfileposition
  829.    pop pop
  830.    currentdict end end /topFontDict get
  831.  } bdef
  832.  
  833. % ---------------- Type 3 fonts ---------------- %
  834.  
  835. /buildType3 {        % <Type3-font-resource> buildType3 <font>
  836.   8 dict begin
  837.     /FontType 3 def
  838.         % If the font does not contain a Resources entry, then we use
  839.         % the resources from our current context.  Page 391 of the PDF
  840.         % 1.6 spec says that the Resources dict is optional and if not
  841.         % present then we should use the Resources for the page.
  842.         % However we have a test file (687989) which uses a Type3 font
  843.         % inside a form XObject and the desired Resources are in the
  844.         % XObject dict and not in the Page dict.  So we are going to
  845.         % the parent object to find resources instead of only going to
  846.         % the page dict when a font does not specify its required
  847.         % resources.
  848.     /Resources 1 index /Resources knownoget {
  849.        oforce
  850.     } {
  851.        LocalResources
  852.     } ifelse def
  853.     /FontBBox 1 index /FontBBox get cvx def
  854.     /FontMatrix 1 index /FontMatrix oget def
  855.     /CharProcs 1 index /CharProcs oget def
  856.     1 index /Widths knownoget {
  857.       /Widths exch def
  858.       /FirstChar 1 index /FirstChar oget def
  859.       /LastChar 1 index /LastChar oget def
  860.     } if
  861.     /FontName 1 index /Name knownoget not { /PDFType3Untitled } if def
  862.     /Encoding .notdefEncoding 2 index getencoding def
  863.         % We have to define BuildChar rather than BuildGlyph:
  864.         % there is no PDF equivalent of glyphshow, and we need
  865.         % the character code to access the Widths.
  866.     /BuildChar {
  867.         % Stack: font charcode
  868.       1 index begin 3 dict begin
  869.       /Font 3 -1 roll def /CharCode 1 index def
  870.       Encoding exch get CharProcs exch knownoget {
  871.         { //false resolvestream
  872.         % Stack: filepos stream
  873.         % Don't let setgcolor set the color inside the BuildGlyph
  874.         % procedure, because this causes an /undefined error.
  875.           q //null /FillColor gput //null /StrokeColor gput
  876.           Font /Resources get exch pdfopdict .pdfruncontext
  877.           Q
  878.         } PDFfile fileposition 2 .execn % Keep pdfcount valid.
  879.         PDFfile exch setfileposition
  880.       } {
  881.         % PDF Type 3 fonts don't use .notdef
  882.         % d1 implementation adjusts the width as needed
  883.         0 0 0 0 0 0
  884.         pdfopdict /d1 get exec
  885.       } ifelse
  886.       end end
  887.     } bdef
  888.     dup currentdict Encoding .processToUnicode
  889.     currentdict end .completefont exch pop
  890. } bdef
  891. /.adjustcharwidth {    % <wx> <wy> .adjustcharwidth <wx'> <wy'>
  892.   % Enforce the metrics, in glyph space, to the values found in the PDF Font object
  893.   % - force wy == 0 (assumed, and not stored in the PDF font)
  894.   %   Even though PDF1.3-1.7 specifications state that this must be 0,
  895.   %   Distiller sometimes creates Type3 fonts with non-zero wy. We set
  896.   %   it to 0 since this is apparently what Acrobat Reader 4 and 5 do.
  897.   %   PDF1.2 does not mention this restriction, it only says
  898.   %   "see setcharwidth/ setcachedevice in the PostScript Reference".
  899.   % - get wx from the Widths array (do nothing if not present)
  900.   pop 0
  901.   /Widths where {
  902.     begin
  903.     CharCode FirstChar ge CharCode LastChar le and {
  904.       exch pop Widths CharCode FirstChar sub get exch
  905.     } if end
  906.   } if
  907. } bdef
  908.  
  909. % ---------------- TrueType fonts ---------------- %
  910.  
  911. /TTfonts mark
  912.   /Arial /Helvetica
  913.   /Arial,Italic /Helvetica-Oblique
  914.   /Arial,Bold /Helvetica-Bold
  915.   /Arial,BoldItalic /Helvetica-BoldOblique
  916.   /CourierNew /Courier
  917.   /CourierNew,Bold /Courier-Bold
  918.   /TimesNewRoman /Times-Roman
  919.   /TimesNewRoman,Italic /Times-Italic
  920.   /TimesNewRoman,Bold /Times-Bold
  921.   /TimesNewRoman,BoldItalic /Times-BoldItalic
  922. .dicttomark readonly def
  923.  
  924. /buildTrueType {    % <TrueType-font-resource> buildTrueType <font>
  925.   dup /BaseFont oget
  926.   dup /Font resourcestatus dup { exch pop exch pop } if not
  927.   TTfonts 2 index known and {
  928.     dup TTfonts exch get
  929.     QUIET not {
  930.       (Substituting font ) print dup =only
  931.       ( for ) print 1 index =only (.) = flush
  932.     } if
  933.     exch 3 1 roll pdffindfont
  934.     true .copyfontdict
  935.     2 copy exch /FontName exch put
  936.     exch pop .completefont
  937.   } {
  938.     pdffindfont
  939.   } ifelse
  940. } bdef
  941.  
  942. % Read an embedded TrueType font.
  943. /readtruetype {        % <font-resource> <stream-dict> readtruetype <font>
  944.   1 index exch
  945.   PDFfile fileposition 3 1 roll
  946.   true resolvestream readfontfilter
  947.         % Stack: filepos fontres stream
  948.   1 index /Subtype get /CIDFontType2 eq {
  949.     .loadttcidfont
  950.         % Stack: filepos fontres cidfont
  951.   } {
  952.                                   % filepos fontres stream
  953.     1 index /FontDescriptor oget          % filepos fontres stream fd   
  954.     /Flags get 4 and 0 ne                 % filepos fontres stream is_symbolic
  955.     dup { //null } { StandardEncoding } ifelse        
  956.     3 index /Encoding known {
  957.       3 index getencoding
  958.     } if                                  % filepos fontres stream is_symbolic Encoding
  959.     dup 4 index exch                      % filepos fontres stream is_symbolic Encoding fontres Encoding
  960.     /prebuilt_encoding exch put           % filepos fontres stream is_symbolic Encoding
  961.     .loadpdfttfont
  962.   } ifelse
  963.   exch pop
  964.   PDFfile 3 -1 roll setfileposition
  965.         % Ignore both the Encoding and the Widths.
  966.   exch pop
  967. } bdef
  968.  
  969. % ---------------- Type 0 fonts ---------------- %
  970.  
  971. % Predefine the known CMaps, but only create them on demand.
  972. /knownCMaps mark
  973.   /Identity-H { /Identity-H 0 makeIdentityCMap }
  974.   /Identity-V { /Identity-V 1 makeIdentityCMap }
  975. .dicttomark def
  976.  
  977. /makeIdentityCMap {        % <cmapname> <wmode> .makeIdentityCMap -
  978.   .currentglobal true .setglobal 3 1 roll
  979.   /CIDInit /ProcSet findresource begin
  980.   12 dict begin
  981.     begincmap
  982.     /WMode exch def
  983.     /CMapName exch def
  984.     /CIDSystemInfo 3 dict dup begin
  985.       /Registry (Adobe) def
  986.       /Ordering (Identity) def
  987.       /Supplement 0 def
  988.     end def
  989.     %/CMapName (see above)
  990.     /CMapVersion 1 def
  991.     /CMapType 1 def
  992.     %WMode (see above)
  993.     % The PDF documentation says that these CMaps map CIDs
  994.     % "1 to 65,536".  This is a misprint for 0 to 65,535.
  995.     1 begincodespacerange
  996.     % <0001> <00ff>  <0100> <ffff>
  997.       <0000> <ffff>
  998.     endcodespacerange
  999.     1 begincidrange
  1000.     % <0001> <00ff> 1   <0100> <ffff> 256
  1001.       <0000> <ffff> 0
  1002.     endcidrange
  1003.     endcmap
  1004.     CMapName currentdict /CMap defineresource
  1005.     knownCMaps CMapName 2 index put
  1006.   end        % CMap
  1007.   end        % CIDInit ProcSet
  1008.   exch .setglobal
  1009. } bdef
  1010.  
  1011. /buildType0 {        % <Type0-font-resource> buildType0 <font>
  1012.   dup /BaseFont get    % FontName
  1013.   1 index /Encoding oget
  1014.   dup type /nametype eq {
  1015.     dup /CMap resourcestatus {
  1016.     pop pop /CMap findresource
  1017.     } {
  1018.     knownCMaps 1 index .knownget
  1019.       { exch pop exec } { /undefined signalerror } ifelse
  1020.     } ifelse
  1021.   } {
  1022.     PDFfile fileposition exch
  1023.     dup /CMapName get exch true resolvestream cvx exec
  1024.     /CMap findresource
  1025.     exch PDFfile exch setfileposition
  1026.   } ifelse        % CMap
  1027.   [
  1028.     3 index /DescendantFonts oget { exec resourcefont } forall
  1029.   ]            % subfonts
  1030.   .composefontdict  % composefont must insert FontInfo dictionary - see gs_cmap.ps .
  1031.             % Stack: fontres name font
  1032.   3 copy exch pop null .processToUnicode
  1033.   exch pop .completefont % Stack: fontres font
  1034.   1 index /FontMatrix knownoget {
  1035.     dup aload pop true {0 0 1 0 0 1} {3 -1 roll eq and} forall {
  1036.       1 index exch makefont exch /FontName get exch 
  1037.       exch pop .completefont
  1038.     } {
  1039.       pop
  1040.     } ifelse
  1041.   } if exch pop
  1042. } bdef
  1043.  
  1044. % ---------------- CIDFontType0/2 fonts ---------------- %
  1045.  
  1046. % Insert metrics into a CIDFont, by saving the PDF W, W2, DW, and DW2
  1047. % arrays and using a (currently very inefficient) CDevProc.
  1048. % For detail, refer "PDF Reference" 2nd ed., p314 "5.6.3 CIDFonts".
  1049. % It notes default DW is 0, but Acrobat Reader uses 1000 as default.
  1050. % If DW is 0, currentpoint does not move by default in rendering text
  1051. % horizontally, the result is unreadable. You can check it by Acrobat.
  1052.  
  1053. /.pdfDefaultDW  1000 def
  1054. /.pdfDefaultDW2 [ 880 -1000 ] def
  1055.  
  1056. /addCIDmetrics {    % <CIDFont-resource> <CIDFont> addCIDmetrics <fontdict>
  1057.   dup length 5 add dict .copydict
  1058.   dup /FID undef
  1059.   dup /UniqueID undef
  1060.   dup /XUID undef
  1061.     % Insert the widths into the font.
  1062.  
  1063.         % Stack: pdfresource newfont
  1064.  
  1065.   1 index /DW knownoget {
  1066.     1 index /DW 3 -1 roll put
  1067.   } {
  1068.     dup /DW .pdfDefaultDW put
  1069.   } ifelse
  1070.  
  1071.   1 index /W knownoget {
  1072.     //false 1 index { xcheck or } forall {
  1073.       oforce_array
  1074.     } if
  1075.     dup 2 index /W 3 -1 roll put
  1076.     .pdfMakeInternalW 1 index /.internalW 3 -1 roll put
  1077.   } if
  1078.  
  1079.   1 index /DW2 knownoget {
  1080.     1 index /DW2 3 -1 roll put
  1081.   } {
  1082.     dup /DW2 .pdfDefaultDW2 put
  1083.   } ifelse
  1084.  
  1085.   1 index /W2 knownoget {
  1086.     //false 1 index { xcheck or } forall {
  1087.       oforce_array
  1088.     } if
  1089.     dup 2 index /W2 3 -1 roll put
  1090.     .pdfMakeInternalW2 1 index /.internalW2 3 -1 roll put
  1091.   } if
  1092.  
  1093.   dup /CDevProc 1 index /CIDWProc load /exec load 3 packedarray cvx put
  1094.   exch pop
  1095. } bdef
  1096.  
  1097. /.pdfMakeInternalMTXArray { % <mtx_array> <item_size> .pdfConvertInternalW <mtx_array'>
  1098.  
  1099.   % convert /W or /W2 to internal expression
  1100.   %
  1101.   %   mtx_array: original /W or /W2 array
  1102.   %   item_size: number of metrics values per CID
  1103.   %
  1104.   %   for detail of the metrics list format in PDF,
  1105.   %   refer PDF Ref. p.317 "Glyph Metrics in CIDFonts".
  1106.   % 
  1107.   %   format of single entry in internal expression
  1108.   %
  1109.   %     [
  1110.   %       [cid_begin cid_end]
  1111.   %       value_is_varied (bool)
  1112.   %       [ [values for cid_begin...]
  1113.   %         [values for cid_begin + 1]
  1114.   %         ... ]
  1115.   %     ]
  1116.   %
  1117.  
  1118.   7 dict
  1119.   begin
  1120.     /itemSize exch def
  1121.     /M exch def            % original /W or /W2
  1122.     /Msize M length def
  1123.     /Mi { M i get } def        % W[i]
  1124.     /Mi1 { M i 1 add get } def    % W[i + 1]
  1125.     /putMTXEntry <<
  1126.       /arraytype   {
  1127.          [
  1128.            [Mi Mi Mi1 length itemSize idiv add 1 sub]
  1129.            true
  1130.            [
  1131.              0 itemSize Mi1 length 1 sub {
  1132.                [ exch 1 1 index itemSize add 1 sub { Mi1 exch get } for ]
  1133.              } for
  1134.            ]
  1135.          ]
  1136.          /i i 2 add def
  1137.       }
  1138.       /integertype {
  1139.          [
  1140.            [Mi Mi1]
  1141.            false
  1142.            [[ i 2 add 1 i 1 add itemSize add { M exch get } for ]]
  1143.          ]
  1144.          /i i 3 add def
  1145.       }
  1146.     >> def
  1147.  
  1148.     /i 0 def
  1149.  
  1150.     [ { putMTXEntry Mi1 type get exec i Msize ge { exit } if } loop ]
  1151.   end
  1152. } def
  1153.  
  1154. /.pdfMakeInternalW  { dup length 0 gt { 1 .pdfMakeInternalMTXArray } if } def
  1155. /.pdfMakeInternalW2 { dup length 0 gt { 3 .pdfMakeInternalMTXArray } if } def
  1156.  
  1157. /.pdfGetMTXByCID { % <internalMTXArray> <cid>
  1158.                    %     .pdfGetMTXByCID
  1159.                    %         { <MTXEntry> true | false }
  1160.  
  1161.   % get values for given CID from internal format of /W or /W2
  1162.  
  1163.   exch
  1164.   {
  1165.     { 
  1166.       dup 0 get {} forall      % Stack: <cid> <entry> <cid_0> <cid_1>
  1167.       3 index lt { pop pop false exit } if
  1168.       2 index exch sub dup 0 lt { pop pop false exit } if
  1169.       1 index 1 get not { pop 0 } if
  1170.       exch 2 get exch get true exit
  1171.     } loop
  1172.     { exit } if
  1173.   } forall
  1174.   dup type /arraytype eq { exch pop true } { pop false } ifelse
  1175. } def
  1176.  
  1177.  
  1178. % Apply the [D]W[2] metrics to a character before displaying.
  1179. /CIDWProc {        % <w0x> <w0y> <llx> <lly> <urx> <ury>
  1180.             %   <w1x> <w1y> <vx> <vy> <cid> <font> CIDWproc
  1181.             %   <w0x'> ... <vy'>
  1182.   begin % push <font> to currentdict
  1183.     % <w1x> <w1y> <vx> <vy> won't be used and replaced, discard now
  1184.     5 1 roll pop pop pop pop
  1185.  
  1186.     {
  1187.       currentdict /DW .knownget not {   % no DW
  1188.         .pdfDefaultDW exit              % replace <w0x> by defaultDW
  1189.       } if
  1190.  
  1191.       currentdict /.internalW .knownget not {    % no W
  1192.         exit                            % use already-stacked DW
  1193.       } if
  1194.  
  1195.       dup length 0 eq {                 % W is null array
  1196.         pop                             % discard unusable W
  1197.         exit                            % use already-stacked DW
  1198.       } if
  1199.  
  1200.       % W is finite array, try to get W_cid
  1201.       2 index .pdfGetMTXByCID {           % got W, discard DW
  1202.         exch pop {} forall
  1203.         exit
  1204.       } if
  1205.  
  1206.       exit
  1207.     } loop
  1208.  
  1209.     FontType 11 eq {
  1210.       1000 div                  % <w0x'> (normalized W)
  1211.     } if
  1212.     0                           % <w0y'>
  1213.  
  1214.     % Stack: <w0x> <w0y> <llx> <lly> <urx> <ury> <cid> <w0x'> <w0y'>
  1215.     9 -2 roll pop pop           % discard <w0x> <w0y>
  1216.     7  2 roll                   % put <w0x'> <w0y'>
  1217.  
  1218.     % Stack: <w0x'> <w0y'> <llx> <lly> <urx> <ury> <cid>
  1219.     0                           % <w1x'>
  1220.     exch                        % put <w1x'>
  1221.  
  1222.     % Stack: <w0x'> <w0y'> <llx> <lly> <urx> <ury> <w1x'> <cid>
  1223.     {
  1224.       currentdict /DW2 .knownget not {  % no DW2, use defaultDW2
  1225.         .pdfDefaultDW2 exit
  1226.       } if
  1227.  
  1228.       currentdict /.internalW2 .knownget not {   % has DW2, no W2
  1229.         exit                            % use already-stacked DW2
  1230.       } if
  1231.  
  1232.       dup length 0 eq {                 % W2 is null array
  1233.         pop                             % discard unusable W2
  1234.         exit                            % use already-stacked DW2
  1235.       } if
  1236.  
  1237.       2 index .pdfGetMTXByCID {        % got W2_cid, discard DW2
  1238.         exch pop
  1239.         exit
  1240.       } if
  1241.  
  1242.       % could not get W2_cid
  1243.       exit
  1244.  
  1245.     } loop
  1246.  
  1247.     exch pop                            % discard <cid>
  1248.  
  1249.     % Stack: <w0x'> <w0y'> <llx> <lly> <urx> <ury> <w1x'> { [<vy'> <w1y'>] | [<w1y'> <vx'> <vy'>] }
  1250.     dup length 2 eq {                   % this is DW2
  1251.       FontType 11 eq {{1000 div}} {{}} ifelse forall exch
  1252.       8 index 2 div                     % <vx'> = <w0x'> / 2
  1253.       exch
  1254.     }{                                  % assume W2
  1255.       FontType 11 eq {{1000 div}} {{}} ifelse forall
  1256.     } ifelse
  1257.   end                                   % recover currentdict
  1258.  
  1259. } def
  1260.  
  1261. % <string> <match> tailmatch ==> <pre> true
  1262. %                            ==> <string> false
  1263. /tailmatch {
  1264.   2 copy length 1 index length .min
  1265.   dup 2 index length exch sub exch getinterval
  1266.   1 index eq {
  1267.     length 1 index length exch sub
  1268.     0 exch getinterval true
  1269.   } {
  1270.     pop false
  1271.   } ifelse
  1272. } bind def
  1273.  
  1274. /makeboldfont {
  1275.   16 dict begin
  1276.     /strokewidth exch def
  1277.     /basecidfont exch def
  1278.     /FontMatrix [ 1 0 0 1 0 0 ] def
  1279.  
  1280.     /CIDFontName /.boldfont def
  1281.     /CIDFontType 1 def
  1282.  
  1283.     /basefont-H /.basefont-H /Identity-H [ basecidfont ] composefont def
  1284.     /basefont-V /.basefont-V /Identity-V [ basecidfont ] composefont def
  1285.  
  1286.     /CIDSystemInfo dup basecidfont exch get def
  1287.     /FontBBox [ basecidfont /FontBBox get cvx exec
  1288.       4 2 roll basecidfont /FontMatrix get transform
  1289.       4 2 roll basecidfont /FontMatrix get transform
  1290.     ] def
  1291.  
  1292.     /tmpstr 2 string def
  1293.     /BuildGlyph {
  1294.       gsave
  1295.       exch begin
  1296.         dup 256 idiv tmpstr exch 0 exch put
  1297.         256 mod tmpstr exch 1 exch put
  1298.         rootfont /WMode known { rootfont /WMode get 1 eq } { false } ifelse
  1299.         { basefont-V } { basefont-H } ifelse setfont
  1300.         strokewidth setlinewidth
  1301.         1 setlinejoin
  1302.         newpath
  1303.         0 0 moveto tmpstr false charpath stroke
  1304.         0 0 moveto tmpstr show
  1305.         currentpoint setcharwidth
  1306.       end
  1307.       grestore
  1308.     } bind def
  1309.  
  1310.    currentdict
  1311.   end
  1312.   dup /CIDFontName get exch /CIDFont defineresource
  1313. } bind def
  1314.  
  1315. % <CIDFont-resource> <CIDFontName> findCIDFont <CIDFont-resource> <font>
  1316. %   CIDFont-resource is not modified.
  1317. /findCIDFont {
  1318.   {
  1319.     dup /CIDFont resourcestatus {
  1320.       pop pop /CIDFont findresource
  1321.       exit
  1322.     } if
  1323.     .remove_font_name_prefix
  1324.     dup dup length string cvs
  1325.     (,Bold) tailmatch {
  1326.       exch pop
  1327.       cvn findCIDFont 0.03 makeboldfont
  1328.       exit
  1329.     } if
  1330.     (,Italic) tailmatch {
  1331.       exch pop
  1332.       cvn findCIDFont
  1333.       [ 1 0 0.3 1 0 0 ] makefont
  1334.       exit
  1335.     } if
  1336.     (,BoldItalic) tailmatch {
  1337.       exch pop
  1338.       cvn findCIDFont 0.03 makeboldfont
  1339.       [ 1 0 0.3 1 0 0 ] makefont
  1340.       exit
  1341.     } if
  1342.     QUIET not {
  1343.       (Can't find CID font ") print dup =string cvs print (".) =  
  1344.     } if
  1345.     pop
  1346.  
  1347.     1 index /CIDSystemInfo oget begin Registry (-) Ordering end
  1348.     concatstrings concatstrings
  1349.     cvn
  1350.     QUIET not {
  1351.       (Substituting CID font resource ) print dup ==only
  1352.       ( for ) print 1 index ==only (.\n) print
  1353.     } if
  1354.     exch pop
  1355.     dup /CIDFont resourcestatus {
  1356.       pop pop /CIDFont findresource exit 
  1357.     } if
  1358.     QUIET not {
  1359.       (The substitute CID font ") print dup =string cvs print 
  1360.       (" is not provided either. Will exit with error.) =  
  1361.     } if
  1362.     /findresource cvx /undefined signalerror
  1363.   } loop
  1364. } bdef
  1365.  
  1366. /buildCIDType0 {    % <CIDFontType0-font-resource> buildCIDType0 <font>
  1367.   dup /BaseFont get findCIDFont exch pop
  1368. } bdef
  1369.  
  1370. /buildCIDType2 {    % <CIDFontType2-font-resource> buildCIDType2 <font>
  1371.   dup /BaseFont get findCIDFont exch pop
  1372. } bdef
  1373.  
  1374. /processCIDToGIDMap { % <fontres> <cidfont> processCIDToGIDMap <fontres> <cidfont>
  1375.   1 index /CIDToGIDMap knownoget {
  1376.     PDFfile fileposition 4 1 roll
  1377.     dup /Identity eq {
  1378.       pop
  1379.     } {
  1380.       true resolvestream
  1381.         % Stack: filepos fontres font mapstream
  1382.     % Can't know the length of the decompressed stream, so allocate a big buffer...
  1383.       dup 65534 string readstring {
  1384.        % Length exceeded max string size, use an array of two strings
  1385.        1 index 65534 string readstring pop   % maybe a null string - not important.
  1386.           2 array astore
  1387.                   % Stack: filepos fontres font mapstream array 
  1388.           dup 1 get length 65534 add
  1389.       } {
  1390.         dup length
  1391.       } ifelse
  1392.       2 idiv
  1393.         % Stack: filepos fontres font mapstream array/string CIDCount
  1394.       3 index exch /CIDCount exch put
  1395.       exch closefile exch
  1396.       dup /CIDMap 4 -1 roll put
  1397.     } ifelse
  1398.     3 2 roll PDFfile exch setfileposition
  1399.   } if
  1400. } bdef
  1401.  
  1402. % Adjust a CIDFontType0 DW[2] in the font resource.
  1403. /adjustCIDType0 {        % <font-resource> <font> adjustfont <font'>
  1404.   addCIDmetrics
  1405.   dup /CIDFontName get exch /CIDFont defineresource
  1406. } bind def
  1407.  
  1408. % Adjust a CIDFontType2 DW[2] and CIDToGIDMap in the font resource.
  1409. /adjustCIDType2 {        % <font-resource> <font> adjustfont <font'>
  1410.   addCIDmetrics
  1411.   dup /CIDFontType get 2 eq {   % OpenType CFF font converts to CIDFontType 0
  1412.     processCIDToGIDMap          %  that ignores CIDMap.
  1413.   } if
  1414.   dup /CIDFontName get exch /CIDFont defineresource
  1415. } bind def
  1416.  
  1417. % ---------------- Other embedded fonts ---------------- %
  1418.  
  1419. /fontloadprocs mark
  1420.   /Type1C /readType1C cvx
  1421.   /CIDFontType0C /readCIDFontType0C cvx
  1422. .dicttomark readonly def
  1423.  
  1424. % Read an embedded compressed font.
  1425. /readType1C {        % <font-resource> <stream-dict> readType1C <font>
  1426.   1 index exch
  1427.   PDFfile fileposition 3 1 roll
  1428.   dup true resolvestream dup readfontfilter
  1429.         % Stack: pos resource streamdict stream filter
  1430.   3 index /FontDescriptor oget /FontName oget
  1431.   1 index 
  1432.   /FontSetInit /ProcSet findresource begin //true //false ReadData
  1433.   { exch pop exit } forall
  1434.   7 1 roll
  1435.   closefile closefile pop
  1436.   PDFfile 3 -1 roll setfileposition
  1437.   pop pop
  1438. } bdef
  1439.  
  1440. % Read an embedded CFF CIDFont.
  1441. /readCIDFontType0C {  % <font-resource> <stream-dict> readCIDFontType0C <font>
  1442.   PDFfile fileposition 3 1 roll
  1443.   dup true resolvestream dup readfontfilter
  1444.         % Stack: pos resource streamdict stream filter
  1445.   3 index /FontDescriptor oget /FontName oget
  1446.   1 index 
  1447.   /FontSetInit /ProcSet findresource begin //true //false ReadData pop
  1448.   closefile closefile pop
  1449.   PDFfile 3 -1 roll setfileposition
  1450.         % Some broken Adobe software produces PDF files in which
  1451.         % the FontName of the CFF font and the FontName in the
  1452.         % FontDescriptor don't match the BaseFont in the font.
  1453.         % Use the FontName, rather than the BaseFont, here.
  1454.   dup /FontDescriptor oget /FontName oget /CIDFont findresource
  1455.   addCIDmetrics dup /CIDFontName get exch /CIDFont defineresource
  1456. } bdef
  1457.  
  1458. % Read an embedded OpenType font.
  1459. /readOTTOfont {        % <font-resource> <stream-dict> readOTTOfont <font>
  1460.   1 index exch                    % res res strdict
  1461.   PDFfile fileposition 3 1 roll   % res pos res strdict
  1462.   dup //true resolvestream        % res pos res strdict stream
  1463.   dup readfontfilter              % res pos res strdict stream filter
  1464.   3 index /FontDescriptor oget
  1465.   /FontName oget                  % res pos res strdict stream filter /name
  1466.   1 index .init_otto_font_file    % res pos res strdict stream filter /name filter'
  1467.   //true
  1468.   6 index /CIDSystemInfo known    % res pos res strdict stream filter /name filter' bool bool
  1469.   ReadData                        % res pos res strdict stream filter fontset
  1470.   { exch pop exit } forall        % res pos res strdict stream filter font
  1471.   dup /FontType get 9 eq  {
  1472.     % OpenType may contain simple CFF font, which is accesed as a CIDFont by PDF.
  1473.     % The font is converted to Type 9 CIDFont resource, which ignores CIDMap attribute.
  1474.     % The following code just shuffles GlyphDirectory to the same effect.
  1475.     4 index /CIDToGIDMap knownoget {
  1476.       dup type /dicttype eq {
  1477.         1 index /GlyphDirectory get exch       % res pos res strdict stream filter font dir c2g
  1478.         //true resolvestream                   % res pos res strdict stream filter font dir c2g_file
  1479.         256 dict begin
  1480.         0 2 index 0 get def  % copy .notdef
  1481.         0 1 16#7fffffff {
  1482.           1 index read not { pop exit } if     % res pos res strdict stream filter font dir c2g_file cid hi
  1483.           256 mul                              % res pos res strdict stream filter font dir c2g_file cid hi
  1484.           2 index read not { pop pop exit } if % res pos res strdict stream filter font dir c2g_file cid hi lo
  1485.           add                                  % res pos res strdict stream filter font dir c2g_file cid gid
  1486.           dup 0 ne {
  1487.             dup 4 index length lt {
  1488.               3 index exch get                 % res pos res strdict stream filter font dir c2g_file cid charstr
  1489.               def                              % res pos res strdict stream filter font dir c2g_file
  1490.             } {
  1491.               pop pop
  1492.             } ifelse
  1493.           } {
  1494.             pop pop
  1495.           } ifelse
  1496.         } for
  1497.         closefile pop                          % res pos res strdict stream filter font
  1498.         dup length dict copy                   % res pos res strdict stream filter font'
  1499.         dup /GlyphDirectory currentdict put    % res pos res strdict stream filter font'
  1500.         end
  1501.         dup /GlyphDirectory get 0 exch {
  1502.           pop .max
  1503.         } forall
  1504.         1 index exch /CIDCount exch 1 add put
  1505.       } {
  1506.       pop
  1507.       } ifelse
  1508.     } if
  1509.   } if
  1510.   7 1 roll                        % font res pos res strdict stream filter
  1511.   closefile closefile pop pop     % font res pos
  1512.   PDFfile exch setfileposition    % font res
  1513.   pop                             % font
  1514. } bdef
  1515.  
  1516. % ---------------- Font lookup ---------------- %
  1517.  
  1518. % Some PDF files mis-identify font type of the embedded font streams or
  1519. % include raw PFB font streams. Length1, Length2, Length3 may be wrong or
  1520. % missing. Adobe Acrobat corrects these errors transparently to the user.
  1521. %
  1522. % We ignore the font type keys and recognize the font type by the 1st 4 bytes
  1523. % of the font stream. The PFB stream is recognized by the 1st 2 bytes.
  1524.  
  1525. /fonttypeprocs mark        % <font-resource> -proc- <font>
  1526.   /Type0 //buildType0
  1527.   /Type1 //buildType1
  1528.   /MMType1 //buildType1
  1529.   /Type3 //buildType3
  1530.   /TrueType //buildTrueType
  1531.   /CIDFontType0 //buildCIDType0
  1532.   /CIDFontType2 //buildCIDType2
  1533. .dicttomark readonly def
  1534.  
  1535. /adjustfonttypes mark
  1536.   /Type1 //adjustfont
  1537.   /MMType1 //adjustfont
  1538.   /TrueType //adjustfont
  1539.   /CIDFontType0 //adjustCIDType0
  1540.   /CIDFontType2 //adjustCIDType2
  1541. .dicttomark readonly def
  1542.  
  1543. % Bind a proc and define n names
  1544. % /name ... /name {proc} n bndef -
  1545. /bndef
  1546.   { exch bind exch
  1547.     { dup 3 1 roll def } repeat
  1548.     pop
  1549.   } bdef
  1550.  
  1551. % Prototype for all procedures: <res> <desc> <stream> foo <font>
  1552. /font_tag_dict 13 dict begin
  1553.  
  1554.   % When the font stream is absent or cannot be read we load the font by the name.
  1555.   /no_stream 
  1556.     { pop pop 
  1557.       dup /Subtype get  % res res /subtype
  1558.       dup / eq {
  1559.         (   **** Warning: Font missing required Subtype, /Type1 assumed.\n)
  1560.     pdfformaterror
  1561.         pop /Type1
  1562.       } if
  1563.       //fonttypeprocs exch get exec 
  1564.     } bdef
  1565.  
  1566.   /bad_stream 
  1567.     { (   **** Warning: Error reading font stream, loading font by the name\n)
  1568.       pdfformaterror
  1569.       //no_stream exec
  1570.     } bdef
  1571.  
  1572.   <8001>          % PFB 
  1573.     { dup /PFB //true put
  1574.       exch pop readtype1
  1575.     } bdef
  1576.  
  1577.   (%!PS) (%!Fo)   % Type1
  1578.     { exch pop readtype1
  1579.     } 2 bndef
  1580.  
  1581.   <01000401> <01000402> <01000403> <01000404> % Type 1C
  1582.   <01000C02>
  1583.     { exch pop
  1584.       dup /Subtype get
  1585.       fontloadprocs exch get exec
  1586.     } 5 bndef 
  1587.  
  1588.   <00010000> (true) (typ1) (ttcf)  % TrueType OpenType
  1589.     { exch pop readtruetype
  1590.     } 4 bndef
  1591.  
  1592.   (OTTO)
  1593.     { exch pop
  1594.       readOTTOfont
  1595.     } bdef
  1596.  
  1597.  
  1598. currentdict end readonly def
  1599. currentdict /bndef undef
  1600.  
  1601. /resourcefont                   % <font-resource> resourcefont <font>
  1602. { dup /PSFont .knownget dup {
  1603.     pop /FID knownoget dup { pop type /fonttype eq } if
  1604.   } if {
  1605.     /PSFont get 
  1606.   } {
  1607.     dup dup /FontDescriptor knownoget {
  1608.                                           % font-res font-res font-desc
  1609.       % The same font descriptor can be reused in a CID and non-CID contexts.
  1610.       % Store CID and non-CID fonts under different keys. Bug 689301
  1611.       1 index /Subtype knownoget dup {
  1612.         pop dup /CIDFontType0 eq exch /CIDFontType2 eq or
  1613.       } if { /CIDFontObject } { /FontObject } ifelse
  1614.                                           % font-res font-res font-desc /key
  1615.       2 copy .knownget {
  1616.         4 1 roll pop pop pop              % font-res obj
  1617.       } {    
  1618.         4 1 roll                          % /key font-res font-res font-desc
  1619.  
  1620.         dup /FontFile knownoget not {
  1621.           dup /FontFile2 knownoget not {
  1622.             dup /FontFile3 knownoget not {
  1623.               //null
  1624.             } if
  1625.           } if
  1626.         } if
  1627.                                           % /key res res desc stream
  1628.         dup //null ne {
  1629.           PDFfile fileposition 
  1630.           1 index //true resolvestream dup
  1631.           4 string readstring pop
  1632.       exch closefile
  1633.           PDFfile 3 -1 roll setfileposition
  1634.           dup length 4 lt { pop /bad_stream } if
  1635.         } {
  1636.           /no_stream
  1637.     } ifelse
  1638.                                           % /key res res desc stream tag          
  1639.  
  1640.         //font_tag_dict 1 index known not {
  1641.           dup 0 2 getinterval <8001> eq {
  1642.             0 2 getinterval               % /key res res desc stream pfb_tag
  1643.       } { 
  1644.             (12345678>\n) dup /ASCIIHexEncode filter dup 4 -1 roll writestring closefile
  1645.             (   **** Warning: unrecognized font file starts with <) exch concatstrings
  1646.         pdfformaterror
  1647.         /no_stream                    % /key res res desc stream unknown_tag
  1648.           } ifelse    
  1649.     } if        
  1650.           
  1651.     //font_tag_dict exch get exec
  1652.    
  1653.         1 index /FontDescriptor oget      % /key res font desc
  1654.         4 -1 roll 2 index                 % res font desc /key font
  1655.         put  % Save pointer to the font.
  1656.       } ifelse
  1657.     } {
  1658.       dup /Subtype get
  1659.       dup / eq {
  1660.         (   **** Warning: Font missing required Subtype, /Type1 assumed.\n)
  1661.         pdfformaterror
  1662.         pop /Type1
  1663.       } if 
  1664.       //fonttypeprocs exch get exec
  1665.     } ifelse
  1666.         % Stack: font-res font
  1667.     1 index exch
  1668.     1 index /Subtype get
  1669.     //adjustfonttypes exch .knownget { exec } { exch pop } ifelse
  1670.     dup 3 1 roll /PSFont exch put
  1671.   } ifelse
  1672.   dup checkGlyphNames2Unicode
  1673. } bdef
  1674.  
  1675. currentdict /font_tag_dict .undef
  1676. currentdict /fonttypeprocs .undef
  1677. currentdict /adjustfonttypes .undef
  1678.  
  1679. drawopdict begin
  1680.   /d0 {
  1681.     .adjustcharwidth setcharwidth
  1682.   } bdef
  1683.   /d1 {
  1684.     2 copy                           % ... llx lly urx ury | urx ury 
  1685.     0 ne exch 0 ne                   % ... llx lly urx ury | ury!=0 urx!=0
  1686.     3 index 6 index eq and           % ... llx lly urx ury | ury!=0 (urx!=0 && llx==urx)
  1687.     exch 2 index 5 index eq and or { % ... llx lly urx ury | (urx!=0 && llx==urx) || (ury!=0 && lly==ury)
  1688.       % The bounding box is empty and likely incorrect. Don't cache.
  1689.       pop pop pop pop .adjustcharwidth setcharwidth
  1690.     } {
  1691.       6 -2 roll .adjustcharwidth 6 2 roll setcachedevice
  1692.     } ifelse
  1693.   } bdef
  1694.   /Tf {
  1695.     1 index Page /Font rget {
  1696.       resourcefont exch Tf pop
  1697.     }
  1698.     { % Bug 689037
  1699.       (   **** Warning: Tf refers to an unknown resource name: ) pdfformaterror
  1700.       1 index .namestring pdfformaterror
  1701.       ( Assuming it's a font name.\n) pdfformaterror
  1702.       Tf
  1703.     } ifelse
  1704.   } bdef
  1705. end
  1706.  
  1707. end            % pdfdict
  1708. end            % GS_PDF_ProcSet
  1709. .setglobal
  1710.